home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / FTP / FTP.PPD next >
Text File  |  1995-11-15  |  3KB  |  147 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.10 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     STRING     VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     INTEGER    VAR005
  15.     BOOLEAN    VAR006
  16.     BOOLEAN    VAR007
  17.     DATE       VAR008
  18.     STRING     VAR009
  19.     STRING     VAR010
  20.     STRING     VAR011
  21.     STRING     VAR012
  22.     STRING     VAR013
  23.     BOOLEAN    VAR014
  24.     BOOLEAN    VAR015
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     CLS 
  29.     LET VAR014=1
  30.     LET VAR015=1
  31.     LET VAR010="Y"
  32.     PRINTLN "@X0FFTP by Email - Version .20b"
  33.     Delay 10
  34.     FOPEN 1,PPEPATH()+"FTP.CFG",O_RD,S_DN
  35.     FGET 1,VAR005
  36.     FCLOSE 1
  37.     LET VAR015=1
  38.     PRINTLN 
  39.     INPUT "Enter HOST name",VAR011
  40.     PRINTLN 
  41.     INPUT "Enter UNIX directory",VAR012
  42.     PRINTLN 
  43.     IF (!VAR015) GOTO LABEL001
  44.     INPUT "Enter FILENAME",VAR013
  45.     PRINTLN 
  46.     LET VAR010="Y"
  47.     INPUTYN "Is this a BINARY file (Y/N)",VAR010,15
  48.     PRINTLN 
  49.     IF (!(VAR010="Y")) GOTO LABEL000
  50.     LET VAR014=1
  51.     PRINTLN "FILETYPE: BINARY"
  52.     GOTO LABEL001
  53.  
  54. :LABEL000
  55.     LET VAR014=0
  56.     PRINTLN "FILETYPE: ASCII"
  57.  
  58. :LABEL001
  59.     PRINTLN 
  60.     PRINT "Creating FTP request...."
  61.     LET VAR009=PPEPATH()+"FTEMP"+STRING(PCBNODE())+".TMP"
  62.     FCREATE 1,VAR009,O_WR,S_DB
  63.     LET VAR001=U_NAME()
  64.     LET VAR003="ftpmail@sunsite.unc.edu"
  65.     LET VAR002=" "
  66.     LET VAR004="R"
  67.     LET VAR006=0
  68.     LET VAR007=1
  69.     LET VAR008=DATE()+3
  70.     FPUTLN 1,"open ",VAR011
  71.     IF (!VAR015) GOTO LABEL003
  72.     IF (!VAR014) GOTO LABEL002
  73.     FPUTLN 1,"binary"
  74.     FPUTLN 1,"uuencode"
  75.     GOTO LABEL003
  76.  
  77. :LABEL002
  78.     FPUTLN 1,"ascii"
  79.  
  80. :LABEL003
  81.     FPUTLN 1,"cd ",VAR012
  82.     IF (!VAR015) GOTO LABEL004
  83.     FPUTLN 1,"get ",VAR013
  84.     GOTO LABEL005
  85.  
  86. :LABEL004
  87.     FPUTLN 1,"dir"
  88.  
  89. :LABEL005
  90.     FPUTLN 1,"quit"
  91.     FCLOSE 1
  92.     PRINTLN "Done!"
  93.     LET VAR010="Y"
  94.     INPUTYN "Do you want to send this request (Y/N)",VAR010,15
  95.     IF (!(VAR010="Y")) GOTO LABEL006
  96.     PRINTLN 
  97.     PRINTLN "Request sent!"
  98.     MESSAGE VAR005,VAR003,VAR001,VAR002,VAR004,VAR008,VAR006,VAR007,VAR009
  99.     GOTO LABEL007
  100.  
  101. :LABEL006
  102.     PRINTLN 
  103.     PRINTLN "Request Aborted!"
  104.  
  105. :LABEL007
  106.     PRINTLN "Returning back to BBS"
  107.     END 
  108.  
  109.  
  110. ;------------------------------------------------------------------------------
  111. ;Statements used:
  112. ;
  113. ;     1 END
  114. ;     1 CLS
  115. ;     3 WAIT
  116. ;    10 GOTO
  117. ;    16 LET
  118. ;     1 PRINT
  119. ;    23 PRINTLN
  120. ;     6 IF
  121. ;     3 INPUT
  122. ;     1 FCREATE
  123. ;     1 FOPEN
  124. ;     2 FCLOSE
  125. ;     1 FGET
  126. ;     8 FPUTLN
  127. ;     2 INPUTYN
  128. ;     1 DELAY
  129. ;     1 MESSAGE
  130. ;
  131. ;Functions used:
  132. ;
  133. ;     1 *
  134. ;     1 /
  135. ;     5 +
  136. ;     2 =
  137. ;     6 !
  138. ;     1 DATE
  139. ;     1 U_NAME
  140. ;     1 STRING
  141. ;     2 PPEPATH
  142. ;     1 PCBNODE
  143. ;
  144. ;------------------------------------------------------------------------------
  145. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  146. ;------------------------------------------------------------------------------
  147.